Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d6/tallyho.arc/STOCKS.FCP

Text File | 1990-09-23 | 856b | 73 lines

@DSPLY "This program computes"
@DSPLY "the original basis of"
@DSPLY "an individual stock in"
@DSPLY "a portfolio and the"
@DSPLY "aggregate return on"
@DSPLY "investment."
=
@NEW STEP
@GET "Number of shares"
@RIN (1)
@GET "Total purchase price"
@RIN (2)
@GET "Commissions paid"
@RIN (3)
@GET "Capital/ordinary dists"
@RIN (4)
@ROUT (2)
+
@ROUT (3)
=
@NEW STEP
@RIN (5)
@ROUT (6)
+
@ROUT (5)
=
@NEW STEP
@RIN (6)
=
@NEW STEP
@ROUT (7)
+
@ROUT (4)
=
@NEW STEP
@RIN (7)
=
@NEW STEP
@ROUT (5)
/
@ROUT (1)
=
@NEW STEP
@DSPLY "Original Basis of Stock"
=
@NEW STEP
@GET "More data? 0=No  1=Yes"
@IF =
1=
@NEW STEP
@GOTO (2)
=
@NEW STEP
@ROUT (7)
/
@ROUT (6)
=
@NEW STEP
*100=
@NEW STEP
=
@NEW STEP
@DSPLY "Return on Investment"
=
@NEW STEP
0=
@NEW STEP
@RIN (6)
0=
@NEW STEP
@RIN (7)
@STOP